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KOMBO modern 
egyszerű 
olcsó 
Kombo, a svájci csodagép — 
az üzleti siker titka 
Reklám, piackutatás, árlisták, aján- 


latok, kimutatások, tervek — könyv 
formában - az Ön irodájában. 











5 — 410 lap 



































2 6 mm- 51 mm 






































. 310-E 
Hűtőállvánnyal 
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O Iratokat borítókba 
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Ezeket kötővályúba 
helyezzük 


B 30 másodperc — 
hangjel - 
kiemeljük 


B Lehűtjük 


Maximum lapszám: 
200 (80 g/m?) 


Feszültség: 220/240V 30 W 



































Súly: 2 kg 








vezményes 





Digitális [/D kártyák 
programozása 


A mai Pc-n zömmel irodai, ügyviteli alkalmazások, játékok futnak, de néhány ma még nem túl 
elterjedt hardware elemmel kiegészítve a Pc másra is képes. Lapunk ezen hardware elemek pro- 
gramozásáról indít sorozatot. Első két részben a digitális [/D kártyák programozását 
ismertetjük. 


A digitális [/O kártyákat elektromos berendezések be-, és 
kikapcsolására, be-, vagy kikapcsolt állapot ellenőrzésére, 
külső eszközök vezérlésére használhatjuk 
Megjelenésüket nézve normál Pc-s bő kártyák több- 
nyire 8 bites ISA busszal. A be-, ill. kimeneti jel többnyire 
TTL szintű, ha nem az, akkor védeni kell a számítógépet 
az esetleges túláramoktól. Néha a külvilágot kell védeni a 
számítógéptől, például robbanásveszélyes környezetben. 
A védelmet opto-csatolós, relés leválasztással oldják meg, 
terjednek a szilárdtest-relés megoldások. Kis áramok és 
kevés csatorna esetén a leválasztást ráépítik a kártyára, 
más esetekben a gépen kívül helyezik el és szalagkábellel 
csatlakoztatják a kártyához. Egy kártyán 8-tól 144-ig [/D 
vonal található /mindig nyolc egészszámú többszöröse/, 
sokszor egyéb áramkörök /pl. számláló időzítő, analóg 
érzékelők/ társaságában. Működés és programozás szem- 
pontjából kétféle kártyát ismerünk: amelyik megszakítást 
generál és amelyik nem. A megszakítást nem generáló kár- 
tyák programozása nem más, mint egy kártyafüggő 
portcím írása, olvasása, IN és OUT utasítással. A 
portcímet a kártyán kapcsolókkal vagy jumperekkel 
választhatjuk ki. 





Szokásos címtartományok /hexa/: 


200 -277 
300 -377 
380 -3AF 
3C0 - 3CF 
3EO0 -3EF 


A portra byte-okat írunk ill. onnan byte-okat olvasunk, 
így egyszerre nyolc csatornát írunk vagy olvasunk. A byte- 
okat nekünk kell bitekből összeállítani vagy olvasáskor a 
byte-ot bitekre bontani. Egyes kártyáknál írás vagy 
olvasás előtt be kell állítani a szükséges üzemmódot, 
másoknál nem. Az üzemód-beállítás egy un. inicializáló 
portra küldött inicializáló paraméter írásából áll. Erre 
vonatkozóan a kártyához kapott leírásból tájékozód- 
hatunk. A megszakítást generáló kártyák lehetőséget biz- 
tosítanak eseményvezérelt programok írására, háttérben 
történő monitorozásra anélkül, hogy a csatornákat 
folyamatosan le kellene kérdezni. Az egyes csatornákhoz 


/vagy csoportokhoz/ prioritási szinteket rendelhetünk, 
letilthatjuk őket. Több megszakítást kérő csatorna esetén 
megszakítás-maszkot haszálhatunk. Ez azt jelenti, hogy pl. 
nyolc csatorna esetén a maszk byte adott bitjéhez rendelt 
csatornáról engedélyezett a megszakítás ha a bit nulla, 
egyébként tiltott. 

A generált megszakítás általában IRO 2 - 7. 

Ebben a cikkben a hagyományos digitális inputkártyával 
történő háttér-monitorozásra mutatunk példát. 

A megszakítást generáló kártyák programozására egy 
konkrét alkalmazási példán keresztül még visszatérünk. 
Az ismertetett C nyelvű program használható szerviz 
célra vagy egyszerűbb feladatok figyelésére. 

A program rezidensen bent ül a memóriában és másod- 
percenként 18-szor megkapja a vezérlést az 1c /hexa/ 
interrupton keresztül. 

Ha kell, inicializáló jelet küld a vezérlő portra, majd olvas- 
sa az adott címen levő portokat. A kapott értékeket bitekre 
bontja majd és egy stringbe írja, végül kiírja a stringet a 
színes karakteres képernyőre. A program nem vizsgálja 
saját példányainak létét a memóriában, onnan eltávolítani 
csak külső programmal, vagy a gép újra indításával lehet. 
Kiíratásnál nem figyeljük az elektronsugár visszafutását. 
A közölt listát bárki szabadon módosíthatja, az említett 
szolgáltatásokkal kiegészítheti, de számolnia kell az erő- 
forrás-igények ugrásszerű növekedésével. A programot 
lehetőleg COM formátumra fordítsuk. Turbo C 2.0 -val 
fordítva 8560 byte méretű programot kapunk, ami 
futáskor kb. 10 Kbyte helyet foglal a memóriából. 

Egy példa az alkalmazásra: 

Advantech PCL-721 tipusú kártyával monitorozunk. 


Báziscím -— 200h 

Initport - Báziscím t 6, 
paraméter z0 

Csatorna szám — 32 


Parancssor: RSBM 200416011631 PCL - 721 


Az eredmény a képernyő tetején jelentkezik. Az inaktív 
csatornák kék alapon szürke, az aktív csatornák fehér 
alapon piros színnel jelennek meg. 





F" Rezidens egysoros bitmonitor "/ 
8 AI 
I ——— —  rsbm.c ————— 


tinclude cstdio.h: 
Hinclude cdos.h: 


int hexatoi (char"); 
static void interrupt (foldtimer)(void); 
static void interrupt newtimer(void); 


char sor[160], bit, cb[5]; 
int basel,In,i,j,a,c,num[8],r,o,p,e,h,v -0xb800; 


void main(argc,argv) 
int argc; 
char "argv[ ]; 


if (argc -— 1) 


( 
puts (" REZIDENS EGYSOROS BITMONITOR"); 
puts (" - 
puts ("Indítás: In"); 
puts ("RSBM [Sstartcím] [portszám] [sor] [initport] 
[initparam] [szín1] [szín2] [cimkelm"); 
puts ("startcim - első port címe hexadecimálisan "); 
puts ("portszám: az egy sorban kijelzett 8 bites por- 
tok száma /max - 8/ "); 
puts ("sor z a képernyő hányadik sorában 
történik a kijelzés"); 
puts (" initport - az inicializáló port relatív 
távolsága startcímtől"); 








puts ("initparam - az inicializáláshoz az initportra 
írandó paraméter"); 
z  inaktívszin "); 
puts ("szin2 z  aktívszin "); 


puts ("szin1 
puts ("cimke a sorban feliratot 
helyezhetünk elln"); 

puts ("Paramétert elhagyni csak a végéről lehet. "); 

puts ("A gép teljesítményétől, a rendelkezésre álló 
memóriától függően "); 

puts ("egyszerre több példányban és különböző 
paraméterezéssel is futhat."); 

puts ("Futásakor 10 Kb. memóriát használ 

példányonként."); 
J 


ifr(argc 57 2) 
ks 
basel - hexatoi(argv[1]); 
if (argc 27 3) c — atoi (argv[2]); 
else c — 4; if(c28)c- 8; 
if (argc 27 4) In - atoi (argv[3]); 
else In — 1; 
if (argc 27 6) ( o - atoi (argv[4]); 
p — atoi (argv[5]);) 
if (argc 27 8) ( e -— atoi (argv[6]); 
h - atoi (argv[7]);) 
else (e-23;h-116;) 


for (i - 0 ; ic580 ;itt) 
( sor [271] 5 "5 sor [27i4t1]- h;) 





ERGKEREENTBBEEZENGRTTTETE TETTEK TEVÉS SE KKNSÉKA TETT, HARDWARE Jessz 


sprintf(cb,"904X" ,(basel)); 
for (i - 0 ; ic4; itt)  sor[27i 42] — cb[i]; 
iz0; 
if (argc 2-9) while(argv[8][i)]) 

( sor [27i412] — argv[8][i]; itt) 
for (j - 0 ; jcz(c-1) ;jtt) 


for (i — 8 ; i20 ;i—) 
sor[158 -18tc 4 18"jr2"i]Jsi470; 
, 
oldtimer - getvect(0x1c); 
setvect(0x1c, newtimer); 
keep (0,600); 
T 
) 


int hexatoi(char "szoveg ) 

( 

int szam - 0; 

inti - 0; 

for(iz0; (szoveg[i]j2-"0" 8.8. szoveg[i]jc5"9") II 
(szoveg[i]j2-"a" 8.8. szoveg[i]js-f) II 
(szoveg[i]2-"A" 8.8. szoveg[ijc—F") ; itt) 

( 

if (szoveg[i]2-"0" 8.8. szoveg[i]jcs"9)szam - 16"szam 

4 szoveg[i] -0" ; 

if (szoveg[i]j2-"a" 8.8. szoveg[ijcsf)szam - 16"szam 

4 szoveg[i] -7a"t 10 ; 

if (szoveg[i]2-—"A" 8.8. szoveg[ijcs"F)szam - 16"szam 

4 szoveg[i] 7A"4 10 ; 

l 


return(szam); 


) 


static void interrupt newtimer() 


Hi 
(oldtimer)(); 
if (r —— 0) 
( 
rz1; 


if (0) outportb(basel 1 o , p); 
for (j — 0 ; jcs(c-1) ;jtt) 
( 
numl[j] - inportb(basel-tj); 
num[j] - num[j]jcs8; 
for (i — 8 ; i20 ;i—) 


( 

bit — !((numl(j)] 8. 0x8000)); 
a-(bit?e:h); 

sor[159 - 187ec 4 18"jt2"ijsa; 
numl[j] - num[j] ccs1t; 


l 
for (i — 0 ; ic160; itt) 
pokeb(v,(In-1)"160-ti, sor[i]); 
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Ebben a cikkben a BORLAND cég legújabb C--t fordítójának telepítésével, 
használatával kapcsolatos első élményeimet mesélem el. 


Valódi nehézbombázó, nagyon nehezen emelkedik fel. A hozzám 
került 4.02 UPDATE verzió 20 lemezének telepítése után kb. 65 
Mbyte nagyságú alkönyvtár jött létre, és a Windows is nehezebb 
lett, néhány Mbyte-tal. A könvtárszerkezet egyszerű, átlátható nem 
csinál olyan rendetlenséget mint az elődje, bár a WINDOWSIBOR- 
LAND.TEMP alkönyvtárban benne felejti a telepítő file-okat. 
Első meglepetések: - a telepítő csak Windows alatt indítható 

- az integrált környezet csak Windows 

alatt műkődik 

Barátkozzunk! Először ahogyan a prospektus ajánlja Windows alól 
fejlesztek DOS alkalmazást;-elindítom a HELLO.IDE projectfile-t. 
A megváltozott kiterjesztésű bináris projectfile a klasszikus hello.c 
forrásfile-t fordítja le. 


1. LISTA 


pe HELLO.C -— Hello, world "/ 
ttinclude cstdio.h- 
int main0) 
ti 
printf( "Hello, worldin"); 
return 0; 


Hi 


Az eredmény: 39 092 Byte méretű hello.exe, ez többet nem fog 

előfordulni.Ugyan ezen file a rendszer parancssoros BCC.EXE 
v 4.02 fordítójával 8878 Byte, míg a nagy előd a TCC.EXE v 2.0 - 
val 6544 Byte méretű futtatható filet készít. Az előzetes ismerkedés 
után valami életszagú feladatot nézek. Lefordítom a Ouinn Curtis 
Inc. "Real-Time Graphics g Measurement Control Tools" című 
rutinkönyvtárát ami 32 forrásnyelvű file-t tartalmaz 505 583 byte 
terjedelemben, majd ennek felhasználásával egy példaprogramot. A 
műveletet összehasonlítás végett elvégeztem a fordító előző vál- 
tozataival is, a futás sebességét a példaprogramban lévő 


sebességteszt alapján próbálom összemérni.A fordítást 386 DX40 
processzorú és 12 msec elérési idejű IDE merevlemezzel felszerelt 
gépen végeztem ,az eredményeket táblázatba foglaltam: 


jei tr0 BCC40  "BEC 3.1 TCC2O0 
LIB file mérete — /byte/ : 204288 206 333 208 896 
DEMO file mérete /byte/ : — 263 060 244 552 PEXIPYI 
LIB fordítási ideje /sec/ 11 4 69 by! 45,7 


A futási sebességet mindhárom esetben közel azonosnak találtam. 
Összegezve a parancssoros fordító az előző változathoz hasonlóan 
működik, sebessége kissé elmarad attól. DOS programfejlesztők ne 
használják az integrált környezetet egy jó editorral néhány BAT 
file-val sokkal messzebb jutnak. 

Következő próba a hello.c Windows-os megfelelőjének a hello.ccp- 
nek a fordítása. Az eredmény hasonló IDE alól fordítva 26 679 byte 
makefile segítségével 8360 byte az EXE file mérete. Újabb 
próbálkozás egy egyszerű rajzolóprogram owlpaint.cpp IDE alól 
fordítva 388 071 byte makefilével 57 520 bytos futtatható file-t 
készít. Tanulság: Windows alá se fordítsunk az integrált 
környezetből. Ezután nézzük a rendszer újdonságát a kódgenerátort. 
Az AppExpert névre hallgató csoda az IDE alatt menűből érhető el. 
Segítségével némi egértologatás árán dialógus dobozok kérdéseire 
válaszolva állíthatunk elő egyszerűbb alkalmazásokat vagy bo- 
nyolultabbak vázát, részleteit. Ráadásul mindent forrásban a definí- 
ciós és erőforrás file-okkal, makefile-vel együtt. Mindezt rém 
egyszerűen, bájosan, érthetően. Bár engem a konyhai robotgépre 
emlékeztet, amivel némi rámolás, szerelés árán megdarálhatom a 
kávémat, egy a kávédarálónál tízszer nagyobb tízszer drágább ma- 
sinával ami tízszer annyi energiát fogyaszt, de irigyel érte a szom- 
széd mert olyan jól néz ki. Első próbálkozásként néhány kattintás 
után egy üres alkönyvtárban a 2. lista szerinti file-ok jöttek létre: 








Fordítás után 794 721 byte méretű több ablakos editortkapunk gy 
eszközsávval, nyomtatás előtti megtekités lehetőségével, min- 
den divatos jóval. Ami igazán érdekes: hogyan programoz a 
gép. A 3. listán a főprogramot tartalmazó file-t láthatjuk. Az 
integrált környezet a már elkészült model vizsgálatához, 
finomításához nagyon sok és nagyon látványos segítséget 
nyújt. Leglátványosabbak az osztályok kapcsolatait, hierar- 
chiáját változóikat megjelenítő táblák. 


Borland Cs: - calc - [Browsing Objects] 


17 SecsjCycle 
5 Heateris On 


[/ 
frsszzáse] 
TEaizase] 





Ujra tanulhatunk programozni,a grafikus objektumokkal való munka 
ellentétben a reklámszlogennel nem kezdőknekvaló.Nagy méretű 
alkalmazásokat fejleszthetnek vele a profik hatékonyabban, biztonsá- 
gossabban mint a hagyományos módon. 






















Borland Ctt - calc 


Bővült az Object Windows több új osztály, új kezelőszervek, 
szebb ablakok. Az erőforrás szerkesztő első látásra nem sokat 
változott. A kezelés komfortja megmaradt, de nem mindenben 
kompatibilis az elődjével. A jelenlegi változat menüi dialógus 
dobozai logikusabbak, kézhez állóbbak. Akinek megvan az szara NETAA EI int (lar "TEventHandler:TE gyaldperaton) 

a r3 fi ös fasré ze r3 (3 Lgy int far TEventHandler::Find(TE ventHandler::TEventinfo faj 
előző változat ne dobja el, mert az azzal készült erőforrással e ny 

KEI E z c Eat ITEventHandler [— int far TEventHandler::SearchE ntriesíTResponseT ableE: 
szerkesztett EXE file-t az új nem mindig tudja megnyitni. : void far TStreamableBase::"T Streamablease() 
vxI 1 fi ri me . elsz itiszátazeza class TWindow::TXWindow 
Az új kezelőszervek használatának lehetősége, a szebb megje- (TsvreamabteBase[ nd 
lenítés, az erőforrások egyértelműbb konfigurálási lehetősége 
miatt azonban az új használatát javaslom. 
EEEN TT 


ug 

14 TDocManager 
La TDropinfo 
ÜLTE szent. 


Az új erőforrás szerkesztő akár rajzoló 
programként is megállná a helyét. 


CM R 01] 
CM REÁADZ2(102] 








/£ Project forr app 
Copyright 0 1994. AII Rights Reserved. 
SUBSYSTEM: forr app.exe Application 
FILE: frr. ppap.cpp 
AUTHOR: 
OVERVIEW 


Source file for implementation of forr. appApp (TApplication). 
$7 
Hinclude cowliowlpch.h: 
H$pragma hdrstop 
Hinclude cdir.h- 
Hinclude "frr. ppap.h" 
finclude "frr. mdic.h" 
Hinclude "frr. mdil.h" 
tinclude "frr. ppad.h" 


TFileDrop::TFileDrop (char? fileName, TPointk p, BOOL 
inClient, TModule") 


fi 
1 


char  exePathIMAXPATHI; 
Path[0] — 0; 
FileName — strepy(new charf[strlen( fileName) -- 1], fileName); 
Point — p; 
InClientárea — inClient; 


1 
§ 


TFileDrop::-TFileDrop () 
§ 
( 
delete FileName; 
, 
; 


const char FTFileDrop::WhoAmiI () 


return FileName; 


, 
§ 


74 (forr appApp Implementation; ; 


/H(DOC VIEW3) 


DEFINE DOC TEMPLATE CLASS(TFileDocument, TEditView, 


DocTypel); 
/MÍDOC VIEW ENDJ)) 


/4 (DOC MANAGER); 

DocTypel — dvti("AII Files (£.$)", "e", 0, "TXT", dtAutoDelete ] 
dtUpdateDir); 

[4 (DOC MANAGER. ENDj; 


// 
// Build a response table for all messages/commands handled 
// by the application. 
/ 
DEFINE RESPONSE TABLEI(forr appApp, TApplication) 
m1tforr appAppRSP TBL BEGINj4 
EV OWLVIEW(dnCreate, EvNewView), 
EV OWLVIEW(dnClose, EvCloseView), 
EV COMMAND(CM HELPABOUT, CmHelpAbout), 
EV WM DROPFILES, 
EV WM WININICHANGE, 


//4 (forr appAppRSP TBL END$;; 
END RESPONSE TABLE; 


MIT TT TT TTI 
// forr appApp 


forr appApp::forr. appApp () : TApplication("forr. app") 
§ 


t 
Printer — 0; 
Printing — 0; 
DocManager — new TDocManager(dmMDI ] dmMenu); 


forr appApp::-forr. appApp () 
, 
if (Printer) 
delete Printer; 


void forr. appApp::SetupSpeedBar ( TDecoratedMDlFrame "frame) 
§ 
t 
TControlBar? cb — new TControlBar( frame); 

cb-oelnsert( tnew TButtonGadget(CM  MDIFILENEW, 
CM MDIFILENEW)); 

cb-lnsert( tnew TButtonGadget(CM  MDIFILEOPEN, 
CM MDIFILEOPEN)); 

cb-lnsert( tnew TButtonGadget(CM FILESAVE, CM FILE- 
SAVE)); 

cb-Insert( trnew TSeparatorGadget(6)); 

cb-oInsert("new TButtonGadget(CM EDITCUT, CM EDIT- 
CUT)); 

cb-lnsert( tnew TButtonGadget(CM EDITCOPY, CM EDIT- 
COPY)); 

cb-Insert( tnew TButtonGadget(CM EDITPASTE, CM EDIT- 
PASTE)); 

cb-olnsert( "new TSeparatorGadget(6)); 

cb-lnsert("new TButtonGadget(CM EDITUNDO, CM EDI- 
TUNDO)); 

cb-lnsert(tnew TSeparatorGadget(6)); 

cb-lnsert( "new TButtonGadget(CM  EDITFIND, 
CM EDITFIND)); 

cb-lnsert( tnew TButtonGadget(CM EDITFINDNEXT, 
CM EDITFINDNEXT)); 

cb-lnsert(tnew TSeparatorGadget(6)); 

cb-lnsert(tnew TButtonGadget(CM FILEPRINT, 
CM FILEPRINT)); 

cb-cInsert("new TButtonGadget(CM FILEPRINTPREVIEW, 
CM FILEPRINTPREVIEW)); 

cb-cSetHintMode( TGadgetWindow::EnterHints); 

frame-oInsert( tecb, TDecoratedFrame::Top); 


void forr appApp::InitMainWindow () 
§ 
t 
mdiClient — new forr. appMDIClient; 
TDecoratedMDlFrame" frame — new 
TDecoratedMDlFrame(Name, MDI MENU, "mdiClient, TRUE); 


nCmdShow — (nCmdShow !- SW SHOWMINNOACTIVE) ? 
SW SHOWNORMAL : nCmdShow; 


frame-—Setlcon(this, IDI MDIAPPLICATION); 





frame-sxAssignMenu(MDI MENU); 
frame-Attr.AccelTable — MDI MENU; 


SetupSpeedBar( frame); 


TStatusBar tsb — new TStatusBar(frame, TGadget::Recessed, 
TStatusBar::CapsLock 
TStatusBar::NumLock l 
TStatusBar::ScrollLock  ] 
TStatusBar::Overtype); 

frame-Insert( tsb, TDecoratedFrame::Bottom); 


SetMainWindow( frame); 
; 


void forr. appApp::EvNewView (TViewét view) 


, 
í 


TMDIClient "mdiClient — 
TYPESAFE DOWNCAST(GetMainWindow()- 
:GetClientWindow(), TMDIClient); 
if (mdiClient) ( 
forr appMDIChild" child — new 
forr appMDIChild( "mdiClient, 0, view.GetWindow()); 


// Associate ICON w/ this child window. 
child-cSetlcon(this, IDI DOC); 


child-2Create(); 


void forr. appApp::CmHelpAbout () 
! 


t 
forr appAboutDlg(MainWindow).Execute(); 
; 


void forr. appApp::Initlnstance () 
, 
t 


TApplication::Initlnstance(); 
GetMainWindow()-cDragAcceptFiles( TRUE); 
; 


void forr. appApp::EvDropFiles (TDroplnfo drop) 
, 
t 
int totalNumberOfFiles — drop.DragOueryFileCount(); 


TFileList" files — new TFileList; 


for (int i — 0; i C totalNumberOfFiles; it) ( 
int  fileLength — drop.DragOueryFileNameLen(i) -t 1; 
char  "fileName — new charlfileLength]; 
drop.DragOueryFile(i, fileName, fileLength); 
TPoint point; 
BOOL . inClientArea — drop.DragOueryPoint(point); 
files-2Add(new TFileDrop(fileName, point, inClientArea, 

this)); 


1 
$ 


AddFiles(files); 
drop.DragFinishO); 
§ 


void forr appApp::AddFiles (TFileList" files) 


§ 
i 


TFileListlter filelter( files); 


while (filelter) ( 
TDocTemplate" tpl — GetDocManager()- 
sMatchTemplate( filelter.Current()-- WhoAmI()); 
if (tp) 
tpl-cCreateDoc( filelter.Current()-- WhoAmI()); 
fileltert-t; 


void forr appApp::EvWinlniChange (char far" section) 


if (Istremp(section, "windows") —— 0) ( 
if (Printer) ( 
char printDBuffer[255]; 
LPSTR printDevice — printDBuffer; 
LPSTR devName — 0; 
LPSTR driverName — 0; 
LPSTR outputName — 0; 
if (::GetProfileString( "windows", "device", "", printDevice, 
sizeof(printDevice))) ( 
devName — printDevice; 
while ("printDevice) ( 
if (tprintDevice — ",) ( 
tprintDevice--t — 0; 
if (!driverName) 
driverName — printDevice; 
else 
outputName — printDevice; 
) else 
printDevice — AnsiNext(printDevice); 


a 
§ 


if ((Printer-2GetSetup(). Error !— 0) 
(Istremp(devName, Printer- 
:GetSetup().GetDeviceName()) — 0) ]] 
(Istremp(driverName, Printer- 
:GetSetup().GetDriverName()) !— 0) [/ 
(Istremp(outputName, Printer- 
:GetSetup().GetOutputName()) !— 0)) ( 


delete Printer; 
Printer — new TPrinter; 


delete Printer; 
Printer — new TPrinter; 


int OwlMain (int , char" []) 


§ 
1 


forr appApp App; 
int result; 
result — App.RunO; 
return result; 
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Ahogyan az már lenni szokott vizsgálódásaim közben sok hibát is 

találtam. A DPMI loader nem szereti ha a memóriában rezidens 
programok csücsülnek. A példaprogramok némelyike nem 
fordítható.A fordító néha elfelejti visszakapcsolni a processzort, és 
a linker nem. fut le. 


Ezekről és még más tapasztalatokról a következő számokban 
olvashatnak bövebben lesz szó. Búcsúzóul az egyik példaprogram 
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van saját arcaó 


Ma már nem elég, hogy egy program működik, emberbarát- 
nak is kell lennie. Ennek érdekében érthető, logikus, 
esztétikus, könnyen kezelhető felhasználói felülettel kell 
rendelkeznie. Szinte szabvánnyá váltak az egérrel kezelhető 
ablakos megjelenítést biztosító grafikus módban futó 
















































felületek. Több kész megoldás közül választhat a prog- HEZ 
ramozó szinte minden operációs rendszer alatt. Ezek előnye, [7653 

1 hogy nem nekünk kell megírni a felület létrehozását, Fi 
kezelését végző rutinokat, hanem kész fügvényeket rutinokat E 


fi 





használhatunk. További előnye ezen felületeknek a fel- 
használók részére, hogy nem kell minden alkal- 
mazásnál újra tanulni, az alapvető kezelési 
készséget hozzák magukkal előző tapaszta- 
lataikból. Van akit ez az uniformizálás zavar, 
szeretne saját, csak az ő programjaira jellemző 
megjelenést létrehozni. Nekik szól következő 
számunktól induló sorozatunk, amiben egy 
DOS alatt futó egérrel, billentyűvel egyaránt 
kezelhető grafikus ablakos felhasználói p 
felületet fejlesztünk TURBO C nyelven, néha 
Assembler betétekkel. Az ismertetett rutinokat 
bárki tovább fejleszt- 
heti, — átalakíthatja. 
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Visszabeszél a könyvelőprogram 


Lapunkban rendszeresen megszólaltatunk gyakorló profikat. 
Az első számban az apropót egy könyvelőprogramban alkalmazott 
érdekes megoldás adta. 


Én, mint szoftverfejlesztő, ügyviteli, nyilvántartási és vezér- 
lési programokat írok. Az egyik ügyfelem egy könyvelési cég, 
amely kevés alkalmazottal több, mint 100 vállalkozás bérszám- 
fejtését és könyvelését végzi. Egy ilyen cégnél nagyon fontos 
az időtényező. A sebességet a számítógépekkel és a pro- 
gramokkal bizonyos határok között ugyan lehet növelni, de az 
adatok rögzítése nagyságrendekkel több időt visz el, mint a 
feldolgozás. Jelentősen csak a rögzítés gyorsításával 
javíthatjuk a teljesítményt. Hogyan valósítható ez meg? 

Először is mivel a könyvelő egyik keze foglalt a programban 
az adatok rögzítéséhez elég csak a keypadot a numerikus bil- 
lennyűket használni. A mentésre a ", egy lista lekérésére a 4 
billentyű szolgál, így a rögzítő egyik keze felszabadul, a 
másikban foghatja a rögzítésre váró számlákat. Már csak azt 
kellene megoldani, hogy ne kelljen állandóan a monitorra 
felpillantani, mert hát ugye az ellenőrzés nagyon fontos. 
Erre egy remek, egyszerű és nem túl drága megoldás, a Nikol 
Elektronika fejlesztése a PC-ROBOT kínálkozik. Ez a rend- 
szer lehetővé teszi a magyar nyelvű szöveg érthető 
kimondását. Tartozik hozzá egy beszédszintetizátorkártya 
hangszóróval és néhány program. A rendszer felélesztése 
egyszerű, a beszédet egy kb. 75 Kb-os rezidensprogram 
állítja elő. Már csak a programunkba való beillesztés van 
hátra. Az unit meghívásakor a Robotlnit eljáráson keresztül 
teszteli, hogy a beszélőrendszert installálták-e, a szükséges 
rezidensprogram elindult-e. Ehhez a RobotlnitedProcot hívja 
meg. Ez a fügvény az AX-et feltölti FOOO hexával és meghív- 
ja a 2F hexa szoftver interruptot, ami AL — FF hexaértékkel 
jelzi a rendszer installálását. A Robotlnited globális változó, a 
teszt eredményére áll be. Ezután a ReadRobotOpcioRec 
felolvassa a már letárolt opciókat, vagy betölti az 
alapértelmezettet. Ezek az opciók a RobotOpcioRec globális 
változóban érhetők el. Egy szöveget kimondatni úgy lehet a 
rendszerrel, hogy az AX-be FO01 hexát kell tölteni, és a 
DS:DX-et a kimondandó szöveg kezdő címére kell állítani. 
Ezután már lehet hívni az előbb említett interruptot. 
A beszédopcióit -- sebesség, hangmagasság, hangtónus, sut- 
togás, hangosság, intonáció, tagolás és hanghosszúság -- az 
ESC vezérlőkarakter és egy kód kimondatásával lehet beállí- 
tani. Az opciók beállítását célszerű a felhasználóra bízni, így 
a beszédet az saját fülének megfelelőre hangolhatja. Erre cél- 
szerű a felhasználói programban, például a rendszer- 
paraméterek menüpontban egy beolvasó ablakot nyitni. 
A könyvelői programba való beillesztés előnye, hogy a szám- 
lákról nem kell felnézni, mert a hangszóróból -- ha több gépen 
használják, akkor a fülhallgatóból -- kontrollként vissza lehet 


hallani a begépelt vagy kiválasztott adatokat. Pl: , Kiss István 
tartozik Tízezer forint -- huszonöt százalék áfával?" Ezen a 
megoldáson kívül még számtalan helyen fel lehet használni a 
megadott egyszerű uniton -- RobotDrv.Pas -- keresztül a PC- 
ROBOT beszélőrendszert. 


Balla László vill. mérnök 
Telefon: 226-8962 


1. Lista ROBOTDRV.PAS 


unit RobotDrv; 
interface type 
(" A robot opció rekord tipus deklarációja ")! 


RobotOpcioRecTipus - record 
Hasznalatban . : Boolean; 
Sebesseg : Byte; 
Hangmagassag . : Word; 
Hangtonus : Byte; 
Suttogas : Byte; 
Hangossag : Byte; 
Intonacio : Byte; 
Tagolas : Byte; 
Hanghosszusag  : Byte; 

end; 


procedure RobotKimondíSt : String); 
procedure SetRobotSebesseg(S : Byte); 
procedure SetRobotHangmagassag(P : Word); 
procedure SetRobotHangtonusí(V : Byte); 
procedure SetRobotSuttogas(W : Byte); 
procedure SetRobotHangossag(A : Byte); 
procedure SetRobotlntonacio(l : Byte); 
procedure SetRobotTagolas(X : Byte); 
procedure SetRobotHanghosszusagíT : Byte); 
procedure SetRobotOpcioRec(Rec : 
RobotOpcioRecTipus); 


function WriteRobotOpcioRec : Boolean; 
function ReadRobotOpcioRec : Boolean; 





var 
( Globális változók ") 


Robotlnited  : Boolean; 
( A rendszer inicializálva van-e?) 
RobotOpcioRec : RobotOpcioRecTipus; 
(" Az aktuális opciókat tárolórekord") 
implementation 
uses 
Dos; 


const 
EscStr z 427; 
RobotFName z "ROBOT.DAT; 
( Annak file-nak a neve, amiben az opciókat tároljuk") 
DefaultSebesseg 57; 
DefaultHangmagassag  - 100; 
DefaultHangtonus z 1; 
DefaultSuttogas z0; 
( Az alapértelmezett beállítások ") 
DefaultHangossag z 10; 
Defaultlintonacio . - 1; 
DefaultTagolas m 1 
DefaultHanghosszusag - 0; 


procedure ErrorMessage(St : String); 
(" Hibaüzenet kiírása. ") 
(" Az aktuális környezetben ezt az eljárást kell 
kicserélni. 
9) 
begin 
WriteLn(St); 
end; 


function Long2Str(L : Longlint) : String; 
(" Egész sztringgé alakítása. ") 

var 

St : String; 
begin 

Str(L, St); 

Long2Str :-— St; 
end; 


function RobotlnitedProc : Boolean; 
rendszer installálását teszteli. ") 
var 
R : Registers; 
S : Word; 
begin 
R.AX :-— $F000; 
Intr($2F, R); 
( 2F hexa szoftver interrupton keresztül lehet elérni.") 
RobotlnitedProc :5 (R.AL - $FF); 
end; 


( A beszélő 


(" Ha a visszatérési érték FF hexa, a ") 
( rendszer installáva van. ") 


procedure LowRobotkKimondíSt : String); 


( " A rendszer tesztelése nélkül kimondja 
a megkapott St sztringet. ") 


var 
R : Registers; 
S : Word; 
begin 
R.DS :- Seg(St); 
R.DX :- Ofs(St); 
R.AX :z $F001; 
( Az AL-01 jelzi, hogy a DS:DX az St kezdőcímére 
mutat ") 
Intr($2F, R); 
S: R.AX; 
ifS50 
then begin 
ErrorMessage 
"4Long2sStr(5S)); 
exit; 
end; 
end; 


(PC Robot hiba : 


procedure RobotKimondíSt : String); 
(" Ha a rendszer installálva van, a megkapott 
St sztringet átadja kimondásra. ") 
begin 
if not Robotlnited then exit; 
LowRobotKimondí(St); 
end; 


procedure SetRobotSebessegí(S : Byte); 
( A kimondás sebességét állítja be. ") 
begin 
if not (S in [1..7]) then S :- DefaultSebesseg; 
RobotKimond(EscStr4t"s"Long2sStr(S)); 
end; 


procedure SetRobotHangmagassagíP : Word); 
(" A kimondás hangmagasságát. állítja be. ") 
begin 
if (P c 20) or (P : 400) then P :- 
DefaultHangmagassag; 
RobotKimond(EscStr-"p"Long2Str(P)); 
end; 


procedure SetRobotHangtonusí(V : Byte); 
( A kimondás hangtónusát állítja be. ") 
begin 
if not (V in [1..2]) then V :- DefaultHangtonus; 
RobotKimond(EscStr-t"v"$Long2Str(V)); 
end; 


procedure SetRobotSuttogas(W : Byte); 
( A suttogást lehet ki-be kapcsolni. ") 
begin 
if not (W in [0..1]) then W :— DefaultSuttogas; 
RobotKimond(EscStr-t"w--Long2Str(W)); 
end; 


procedure SetRobotHangossag(A : Byte); 
( A kimondás hangosságát állítja be. ") 
begin 
if not (A in [1..13]) then A :- DefaultHangossag; 
RobotKimond(EscStrt"atLong2Str(A)); 
end; 
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procedure SetRobotlntonacio(l : Byte); 
( A kimondás intonációját állítja be. ") 
begin 
if not (I in [0..1]) then I :- Defaultintonacio; 
RobotKimond(EscStrt"itLong2Str(l)); 
end; 


procedure SetRobot Tagolas(X : Byte); 
( A kimondás tagolását. állítja be. ") 
begin 
if not (X in [0..6]) then X :- DefaultTagolas; 
RobotKimond(EscStrt"x"Long2Str(X)); 
end; 


procedure SetRobotHanghosszusagíT : Byte); 
( A kimondás hanghosszúságát állítja be. ") 
beginC 
if not (T in [0..3]) then T :- DefaultHanghosszusag; 
RobotKimond(EscStrH-t4Long2Str(T)); 
end; 


procedure SetRobotOpcioRec(Rec : 

RobotOpcioRecTipus); 

(" A megkapott robot opció rekord alapján beállítja az 

opciókat. ") 
begin 
with Rec do 
begin 

SetRobotSebesseg(Sebesseg); 
SetRobotHangmagassag(Hangmagassag); 
SetRobotHangtonus(Hangtonus); 
SetRobotSuttogas(Suttogas); 


SetRobotHangossag(Hangossag); 
SetRobotlntonacio(Intonacio); 
SetRobotTagolasíTagolas); 
SetRobotHanghosszusag(Hanghosszusag); 
end; 
end; 


function WriteRobotOpcioRec : Boolean; 
(" Az aktuális robot opció rekordot menti le. ") 

var 

F : File of RobotOpcioRecTipus; 

1 : Integer; 
begin 

WriteRobotOpcioRec :- false; 

Assign(F, RobotFName); 

Rewrite(F); 

Write(F, RobotOpcioRec); 

Close(F); 

1 :- IOResult; 

If I cs 0 then 

begin 
ErrorMessage( Write hiba cRobotOpcioRec: : 
"4Long2Str(l)); 
exit; 
end; 

WriteRobotOpcioRec :- true; 

end; 


function ReadRobotOpcioRec : Boolean; 
( Az aktuális robot opció rekordot olvassa fel, vagy 
feltölti az alapjértelmezett adatokkal. ") 








var 
F : File of RobotOpcioRecTipus; 
1 : Integer; 
begin 
ReadRobotOpcioRec :- false; 
Assign(F, RobotFName); 
Reset(F); 
I :- IOResult; 
case I of. 
0 : begin (" Beolvassa a rekordot ") 
Read(F, RobotOpcioRec); 
Close(F); 
1 :- IOResult; 
ifi 50 
then begin 
ErrorMessage( Read hiba 
ScxRobotOpcioRec? : 4Long2Str(1)); 
exit; 
end; 
end; 
2 : begin (" Feltölti a rekordot ") 
FillChar(RobotOpcioRec, 
SizeOf(RobotOpcioRecTipus), 0); 
with RobotOpcioRec do 
begin 
Sebesseg :— DefaultSebesseg; 
Hangmagassag :- DefaultHangmagassag; 
Hangtonus :- DefaultHangtonus; 
Suttogas :— DefaultSuttogas; 
Hangossag :-— DefaultHangossag; 
Intonacio :-— Defaultintonacio; 
Tagolas :-— DefaultTagolas; 
Hanghosszusag :-— DefaultHanghosszusag; 
end; 
if not WriteRobotOpcioRec then exit; 
end; 
else begin 
ErrorMessage( Read hiba cRobotOpcioRec? : 
"4Long2Strt(1)); 
exit; 
end; 
end; 
ReadRobotOpcioRec :- true; 
end; 


procedure Robotlnit; 
(C A unit az első meghívásakor teszteli, 
hogy a rendszer inicializálva van-e, 
és felolvassa, majd beállítja az opciókat ") 
var 
Rec : RobotOpcioRecTipus; 
begin 
Robotlnited :— RobotlnitedProc; 
if not Robotlnited then exit; 
if not ReadRobotOpcioRec then exit; 
Robotlnited :- RobotOpcioRec.Hasznalatban; 
if not Robotlnited then exit; 
SetRobotOpcioRec(RobotOpcioRec); 
end; 


begin 
Robotlnit; 
end. 
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A kipróbáláshoz egy egyszerű példa: Demo.Pas 
program Demo; 


uses 
RobotDrv; 


procedure Kimondí(S : String); 
begin 
RobotKimond(St"."); 
end; 


begin 
WriteLn(PC Robot); 
Kimond(PC Robot); 
WriteLn(Százhúszezerötszáz"); 
Kimond("1205009; 

end. 





BÁRMIT MEGMÉRHET 
PC-jével 











Megszakítás 
parancssorból 


A gép lelkével most ismerkedők vehetik hasznát az alábbi 
három Turbo C-ben írt rutinnak. Az első listán közölt 
POKE.C program segítségével adott szegmens és ofszet- 
címre írhatunk egy tetszőleges decimális számot. 
A második listában lévő OUT.C a gép tetszőleges PORT- 
jára ír egy decimális számot. A harmadik listában lévő 
INT.C rutinnal tetszőleges megszakítást hívhatunk meg 
parancssorból. A programokat COM formátumra fordít- 


1. Lista POKE.C 
unsigned int seg, offs,i; 
unsigned char param; 


int hexatoi(char "szoveg ) 
( 
int szam - 0; 
inti - 0; 
for(i-0; (szoveg[i]j2-70" 8.8. szoveg[i]js-"9") II 
(szoveg[i]2-"a" 8.8. szoveg[ijszf) II 
(szoveg[i]2-7A" 8.8. szoveg[i]jc—F") ; itt) 
(6 
if (szoveg[i]2-70" 8.8. szoveg[i]c-"9") 
szam - 16:szam 1 szoveg[i] -0" ; 
if (szoveg[i]2-"a" 8.8. szoveg[ijs-f) 
szam - 16"szam t szovegl[i] -a"t 10 ; 
if (szoveg[i]2-—7A" 8.8. szoveg[ijs—F") 
szam - 16:"szam t szoveg[i] -A"t 10 ; 
) return(szam); 
b 
void main(argc,argv) 
int argc; 
char targv[]; 
( 
if(argc -— 4) 
( 
seg - hexatoi(argv[1]); 
offs - hexatoi(argv[2]); 
for(i-0; argv[3][i]27707" 8.8. argv[3][IJc—9" itt) 
param - 10"param 1 argv[3]([i] 70; 
pokeb(seg,offs param); 
, 
else 
( puts ("Használat: POKE szegmenscím 
offsetcím érték"); 
puts (" Ihex/ Ihex/ 
exit(0); 
J 


Idec/"); 


2. Lista. OUT.C 
unsigned int basel,i; 
unsigned char param; 


void main(argc,argv) 
int argc; 
char "argv[]; 


( 
ifr(argc -— 3) 


for(izo; (argv[1][iJ25"0" 8.8. argv[1][iJc5"9") II 
(argv[1][iJ25-"a" 8.8. argv[1][iJcsf) II 
(argv[1][ÍJ2—7A" 8.8. argv[1][iJc—F") ; itt) 
( 
if (argv[1][iJ2570" 8.8. argv[1][i]c5"9") 
basel -— 16"basel t argv[1][i] —0" ; 
if (argv[1][iJ257a" 8.8. argv[1][i]czf) 
basel - 16"basel t argv[1][i] 7a"t 10 ; 
if (argv[1][ÍJ2-—7A" 8.8. argv[1][iJc—F") 
basel - 16"basel 4 argv[1][i] 7A"4 10; 
, 
for(iz0; argv[2][1]J2570" 8.8. argv[2][i]c—79"it-t) 
param - 10"param t argv[2]([i] -0"; 


outportbí(basel param); 


else 

puts ("Használat: OUT  portcím 
puts (" Ihex/ 
) 


érték"); 
Idec/"); 


3. Lista INT.C 


finclude cdos.h: 


int i; 

unsigned int 
intnum,axparam,bxparam,cxparam,dxparam; 
static union REGS rg; 


int hexatoi(char "szoveg ) 

kj 

int szam -— 0; 

inti 5 0; 

for(i-0; (szoveg[i]2-70" 8.8. szoveg[i]jc—"9") II 
(szovegl[i]2-"a" 8.8. szoveg[i]jszf) II 
(szoveg[i]2-—7A" 8.8. szoveg[ijs—F") ; itt) 


( 
if (szoveg[i]2-70" 8.8. szoveg[i]jc-"9") 
szam - 16"szam t szoveg[i] -0" ; 
if (szoveg[i]j2-7a" 8.8. szoveg[ijs-f) 
szam - 16"szam t szovegl[i] -a"t 10 ; 
if (szoveg[i]2-—7A" 8.8. szoveg[ijs-F") 


szam - 16:szam t szoveg[i] -At 10 ; 


) 





EA TIPPEK k TRÜKKÖK JEE 


return(szam); 


void main(argc,argv) 
int argc; 
char targv[]; 


$ 
if (argc 27 2) 
1 


intnum - hexatoi(argv[1]); 

if (argc 2-7 3X axparam - hexatoi(argv[2]); 
rg.x.ax - axparam;) 

if (argc 2- 4 bxparam - hexatoi(argv[3]); 
rg.x.bx - bxparam;) 

if (argc 27 5X cxparam - hexatoi(argv[4]); 
rg.x.cx - cxparam;) 

if (argc —- 6X dxparam - hexatoi(argv[5]); 
rg.x.dx - dxparam;) 

int86(intnum, 8rg, 8.rg); 


else 


puts ("Megszakítás parancssorbólin"); 

puts ("Használat: INT . intnum [axparam] 
[bxparam] [cxparam] [dxparam]"); 

puts (" Ihex/ /hex/ Ihexl 
Ihex/ lhexli "); 

, 
























Akció? 
úG Nagymező utca 64. 


FANTASZTIKUS KÍNÁLAT !!! 
csak a COMPFAIR idejére. 

e KÜLSŐ MODEM (2400 BPS) 6.800 Ft 
posta eng., RS-232 -- tel. kábelek 

e DIGITALIZÁLÓ TÁBLA A/3 

e HP II-III leser toner 

e AUTOMATA LAPADAGOLÓ 
STAR LC-10, -20, printerekhez 

e PRINTERASZTAL, fémszerkezetű 3.200 Ft 

e LEPORELLÓ: 
- 240/1 pld (70 gr), 1000 lap/dob. 
- 382/1 pld (60 gr), 1700 lap/dob. 


8.000 Ft 
9.800 Ft 
4.000 Ft 


680 Ft 
1.200 Ft 
32599 ÁFA 
0 KEYMAX festékszalagok, FLOPPY LEMEZEK 
akciós áron, nagy választékban. 
Értékesítés LEPORELLÓ Raktáráruházunkban is! 
Cím: Budapest, VII. Péterfy S. u. 34. 
Tel.: 153-3811, 122-0825 





Tel.: 132-7751 Fax: 269-1128 


A RENDTEREMTÉS 


Mi 
a második 
megoldást ajánljuk. 


A számítógépek használata egyre inkább részévé válik 
életünknek. A legkülönbözőbb számítógépes rendsze- 
rekkel találkozhatunk már irodákban és szakrendelőkben, 
üzletekben és üzemekben, sőt, ahol az ilyen újságok is 
készülnek: szerkesztőségekben és nyomdák előkészítő 
részlegeiben. A keresletnek megfelelően egyre nő a kí- 
nálat ezekből a rendszerekből és az esetek többségében az 
ajánlott rendszerek eléggé hasonló módon 

épülnek fel: egy, a célfeladathoz illő tel- 

jesítményű számítógépre installálják az 

adott témakörhöz tartozó néhány sláger- 

szoftvert, csatlakoztatnak a rendszer- 

hez különböző perifériákat, nyomta- 

tót, szkennert, stb. — és már kész is a 

célmunkahely. 


Az így felépített számítógépes munka- 
állomás az installálás és átadás ideje 
alatt rendezett képet mutat, de ha a rend- 
szer installálója mondjuk néhány hóna- 
pos intenzív használat után belenéz a me- 
revlemez alkönyvtáraiba, elsírja magát. A 
dolog ekkor valahogy úgy néz ki, hogy a 
merevlemez alkönyvtáraiban, beleértve a 
gyökérkönyvtárat is, rendszertelenül el- 
szórva meg lehet találni az elmúlt időszak 
összes létrejött dokumentumait, anyagait: 
rendet tenni szinte lehetetlen a sok kereszthi- 
vatkozás miatt. Káosz! 


Végy egy jó (nagy) szemeteskosarat 


Bár az entrópia Így is, úgy is - mint tudjuk - növekszik, 
megfékezésére az egyik leghatékonyabb eszköz lehet a 
partnersg Hungary Kft. saját fejlesztésű magyar szoftvere, 
keretrendszere: a HEADLINE. 


A Headline szerzői többéves, szerkesztőségi rendszerek 
tervezésében és installálásában összegyűjtött tapaszta- 
lataik felhasználásával egy olyan programot hoztak létre, 
amely a felhasználók igényeit messzemenően figyelem- 
bevéve alkalmazható éppúgy orvosi rendelő vagy autóke- 
reskedés kartoték-rendező keretszoftvereként, mint újság- 
szerkesztőség munka-szervező rendszereként. Felépíthető 
vele akár egygépes munkahely, akár sokszáz gépes nagy 
hálózati rendszer, mindkettőn áttekinthetően összefogja a 
napi felhasználás során keletkezett anya- 
gokat és kényelmessé teszi ezek (újra) 

használatát. 


OFF-LINE verzió 


A Headline OFF-LINE verziója egygépes 
munkahelyek kiépítésére alkalmas, melyen 

a tervezett, megvalósítandó feladat minden 
részfeladata elvégezhető. Az OFF-LINE 
verzió segítségével kényelmesen végig- 
kísérhetjük az egyes anyagok (például leve- 
lek, vagy bonyolultabb szöveges és képfile- 
ok, tördelt oldalak) útját keletkezésüktől el- 
készülésükig. Minden munkafázis egyetlen 
munkahelyen található meg. A különböző 
állapotban lévő anyagok mindig azonnal elér- 
hetők. Minden anyagról plusz információ áll 

rendelkezésre az anyagok Információs lapján. 


MIT TUD A HEADLINE? 


" A Headline keretrendszer, sok kényelmi szolgáltatással. 

, Minden, az adott munkahelyre installált szoftver futtatható Headline alól. 

s A létrejött file-okat információs lappal együtt adatállományokba szervezi, áttekinthetően tárolja, 
ezáltal elősegíti intelligens visszakeresésüket és az elavult anyagok törlését. 
s A Headline anyagorientált rendszer: a felhasználó a kívánt anyag kiválasztása után egy mozdulattal kezdeményezheti annak 
feldolgozását egy másik programmal, függetlenül attól, hogy az adott anyag melyik programmal lett létrehozva. 
s Beépített automatizmusaival megkönnyíti a napi munkát. 
s Könnyen kezelhető és tanulható (fool-proof). 
s Mivel shell jellegű feladatokat is ellát, a felhasználónak nem szükséges az operációs rendszer működését ismernie. 
s Egygépes munkahely alakítható ki az OFF-LINE verzió segítségével. 
s Hálózati verziója NOVELL hálózatban futtatható, akár merevlemez nélküli hálózati munkahelyekről is. 
s Az egész országot átfogó lokális hálózatok összekapcsolásával létrehozott rendszerben a különböző helyszínek közötti 
adatcserét és a helyi munkaszervezést egyszerre képes biztosítani. 





KÉTFÉLE MÓDSZERE . 
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Végy egy jó rendszer-programot 





Az OFF-LINE verzió gondoskodik arról is, hogy a rend- 
szer merevlemezén rend legyen, az elavult anyagokat 
floppy-ra menthessük, vagy, ha végleg nincs rájuk szük- 
ség, akkor törölhessük azokat. 

A Headline OFF-LINE verziója ajánlott például kisebb 
irodákban (legyen az akár egy utazási iroda), ahol a ren- 
dezés vagy a dokumentumok, kiadványok előkészítése 
egy, esetleg két párhuzamosan futó munkahelyen megold- 
ható. A Headline ajánlott olyan cégek számára is, akik 
törődnek az általuk kiadott anyagok küllemével és a szá- 
míiítógépes kiadványszerkesztés mellett döntöttek. 
Ajánlott akár egy menedzser vagy vállal- 
kozó számára is, aki elhatározta, hogy az 
üzletvitelével kapcsolatos számítógépes 
információkat (leveleket, faxokat, stb.) jól 
áttekinthető, könnyen hozzáférhető for- 
mában szeretné tárolni. 


HÁLÓZATI verzió 


A Headline hálózati verziója NOVELL há- 
lózaton futtatható. Az egyes hálózati mun- 
kahelyeken ilyenkor mindenütt a program 
egy helyi verziója fut, és a hálózat közpon- 
ti gépén találhatók a központi adatállo- 
mányok. A munkahelyeken lehetőség van 
mind a központi gépen található adatállo- 
mányok, mind pedig a helyi gép saját me- 
revlemezén elhelyezkedő helyi adatállo- 
mányok elérésére. Az egyes munkahelyek 
egy-egy célfeladat elvégzésére speciali- 
zálódhatnak és az anyagok feldolgozási 
folyamatának egy-egy állomását, lépcsőjét képviselhetik. 
Az optimális munkamenet ilyen esetben az, hogy a bevi- 
teli munkahelyeken megszületnek az anyagok és termé- 
szetesen, a mindenki által elérhető központi adatállomá- 
nyokba kerülnek. Az egyes munkahelyek a feldolgozási 
folyamatnak megfelelően sorban elvégzik rajtuk a rész- 
feladatokat, majd a feldolgozási folyamat utolsó állo- 
mására kerülve elkészíthető a végtermék. Ezek után a már 
kész anyagok egy ideig őrizhetők a rendszerben és ha 
végleg nincs rájuk szükség, akkor törölhetők. Az ilyen 




















munkaszervezésben a Headline hálózati verziója szinte 
nélkülözhetetlen. Az egyes anyagokhoz az elkészültségi 
állapotuknak megfelelő, státusz jellegű információt ren- 
del, így biztosítja azt, hogy a különböző munkahelyeken 
ülő felhasználók csak azokat az anyagokat érjék el, ame- 
lyekkel dolgozniuk kell. Megszervezi az anyagok áram- 
lását a rendszerben és az elkészült anyagokat elkülöníti a 
feldolgozásra váróktól. Mivel a különböző munkafolya- 
matok különböző teljesítményűek, az egyes munkahe- 
lyeket az adott feladatnak megfelelő hardverrel lehet fel- 
szerelni, ami lehetőséget ad a költségek optimalizálására. 


A Headline hálózati verziója olyan hálózati munkahe- 
lyekről, terminálokról is futtatható, amelyek nem 
tartalmaznak beépített merevlemezt. Az ilyen 
munkahelyek a hálózat központi gépén instal- 
lált szoftvert futtatják és kizárólag a közpon- 
ti adatállományok elérésére alkalmasak. 


A Headline hálózati verziója segítségével 
megoldható különböző városokban instal- 
lált és egymással összekapcsolt helyi 
hálózatok között az anyagok ON-LINE 
áramoltatása is. A Headline hálózati ver- 
ziója ajánlott komolyabb gépparkkal ren- 
delkező vállalkozások számára, ahol már 
működik számítógépes hálózat, vagy 

érdemes egy NOVELL hálózatot tele- 
píteni. 








Ha ez a rövid leírás felkeltette az Ön figyelmét és 
további információkat, árakat szeretne megtudni a 
Headline-ról, esetleg működés közben szeretne 
megtekinteni HEADLINE-nal felépített rendszereket, 


kérjük, hívjon minket bizalommal. 





partnersa Hungary Kft. 
1149 Budapest, Angol u. 6. 
Tel.: 221-5123, 221-5126 Fax: 251-6127 
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ungary 


HEADLINE: A RENDSZERE 


Minden kedves érdeklődőt és viszonteladót szeretettel várunk 
a PrintExpo 94 kiállításon, október 11-től 15-ig a D pavilon 403/F standján. 


Post-A Studio 








ASSEMBLER ISKOLA 


Mindazok számára, akik szeretnének megtanulni valamilyen programozási 
nyelvet, segítséget nyújt folyóiratunk. Elsőként inkább a gyakolati, mint 
elméleti oldaláról ismertetjük az assembly nyelvet. 


Ez az a nyelv, ahol egy program elkészítéséhez nem elég csupán az 
utasítások ismerete, hanem egy átfogó hardware-ismeretre is szükség 
van. Az assembly a számítógép saját nyelvén való programozása. 
Egy program megírása tulajdonképpen nem más, mint az adott fela- 
dat elemeire való bontása. Ezek az elemek magasabb szintű 
nyelveknél nagyobbak, az assemblynél a lehető legapróbbak. Ebből 
is látszik, hogy nem tartozik a könnyen megtanulható nyelvek közé. 
A programozás során több új fogalommal kell majd megismerked- 
nünk, amik egyben a programozó eszköztárát is képezik. Ezek 
határozzák meg a számítógépes programozás jellegét. 

A programozás eszközei: 


Eljárások: olyan rutinok, amire a program során többször is 
szükség van. Ilyenkor azt elegendő egyszer megírni és a továbbiak- 
ban csak hivatkozni rá. Ilyen eset például egy szöveg kiíratása, vagy 
egy vonal rajzolása, stb. 


Változók: nem mások, mint a memóriában tárolt különböző 
típusú adatok. Egyes feladatok megoldása elképzelhetetlen pusztán 
regiszterek használatával, a memória mérete pedig bőségesen 
megengedi, hogy abban adatokat tároljunk. Ezeket ne tévesszük 
össze a magasabb szintű nyelveknél megismert változókkal, mert 
nagyon sok különbség van köztük. 


Ciklusok: ez egyike a leggyakrabban használt eszközöknek, 
ugyanis segítségével az egymás után többször végrehajtandó 
programrészeket elegendő csak egyszer megírni és egy ciklus segít- 
ségével többször végrehajtani. Például az a feladat, hogy csippanjon 
ötöt a gép, akkor nem kell ötször megírni a rutint, hanem elegendő 
egyszer és utasítani a gépet arra, hogy azt ötször hajtsa végre. 


Feltételek vizsgálata, elágazások: igen gyakran előfordul, hogy 
el kell döntenünk, hogy egy eredménnyel mit kezdjen a gép, vagy 
adott helyzetben választani kell a különböző lehetőségek közül. Erre 
a célra szolgálnak a feltételek és elágazások. 


Alapértelmezés szerint a számokat decimálisan írjuk. Ha ettől 
eltérően ábrázoljuk azokat, akkor jelölni kell, hogy az adott szám 
melyik számrendszer szerint értelmezendő, így a bináris számok után 
egy "b", hexadecimális számok után pedig egy "h" betűt. A 16 bites 
regisztereket használjuk címzésre, egy 16 bites számmal 
megcímezhető legnagyobb memóriacím a 65535, azaz 64 KByte. 
Nos ennél még a leggyengébb XT-ben is több van. A megoldás az, 
hogy a gépben lévő memóriát felszeleteljük és laponként kezeljük. 
Így jött létre a szegmentált címzés, amihez szükség van egy szegmens 
és egy index címre. Ennek lényege, hogy a szegmenscím segítsé- 
gével kiválasztunk egy 64K-s lapot a memóriából, és az indexcím 
segítségével határozzuk meg a pontos címet. A teljes memóriacím 20 
bit hosszú. Ez úgy alakul ki, hogy a szegmenscímhez képest négy bit- 
tel el van tolva az indexcím. Ebből adódóan két szomszédos szeg- 
mens egymástól 16 Byte (egy paragrafus) távolságra van. A 
megoldás hátránya, hogy csak un. paragrafushatáron kezdődhet egy 


szegmens. A tanuláshoz szükségünk lesz egy assembler-fordítóra (a 
Turbo Assemblert ajánljuk), valamint egy egyszerű szöveg- 
szerkesztőre. Először minden magyarázat nélkül közlünk egy prog- 
ramlistát az 1. listán és a fordításhoz szükséges parancsfilet a 
2. listán. 


1. LISTA. 
CODE SEGMENT PUBLIC "CODE" 
ASSUME CS:CODE , DS:CODE 
ORG — 100h 5; COM file-t készítünk. 
START: 
JMP INDUL 
SZOVEG DB "Helló világ! $" 
INDUL: 
PUSH CS 
POP DS 


MOV — AH,09h ; DOS funkció beállítása 


; 09h — String kiíratása. 
MOV  DX,offset SZOVEG; Kiírandó string kezdete 


INT 21h : DOS megszakítás 
; hívása 


MOV — AX4C00h ; 4Ch — Kilépés 


INT 21h 


; DOS megszakítás 
; hívása 


CODE ENDS 


END START 


2. LISTA 


Turbo Assembler-hez COM-ra fordító BAT- 
file. 


TASM "1 
TLINK 
DEL "o1.OBJ 


-T "21 


DEL "01.MAP 





A világ legolcsóbb 


helyi PC-UNIX hálózata AKCI ő ! 
COHERENT 4.2 ses 


15.200 Ft -- áfa 4 ilágító 
TANOK TET SES Lézerplotter/levilágító 


C és 386-os Assembler fordítóval. Éd £ £ 1 
X-Windows csomagok: SGYEZMENYESZÁTON: 


Open Look, Motif-Like, Visual Basic, a 
Desktop Utilities, Graphics. 1dbLG-1 1016 dpi 19 MFt 


Egyéb programok: 8 ; 
DBase III--, SlickEdit, 1.db LG-22052.dpi 29 MFt 


Lotus 123, PANEL Plus II, ő jé 
CodeBase 5.0. Filmméret:600x500 mm 


X-munkahely: 


486DX-40/8Mb/250Mb Csak október 30.-ig! 
SVGA/I,44Mb 


143.920 Ft -- áfa 
(COHERENT X-Windows-zal) 
Részegységek, használt PC 
alkatrészek nagy választékban! 

sZa—— lass CANON nyomtatók: 
PL: BJ-330 74.900 Ft -- áfa ET 


BJC-4000 63.920 Ft-t áfa szuz j LaserGraph 
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SYSDATA 


Azonnali belépéssel keresünk 
telekommunikációs rendszerek és banki 
alkalmazások fejlesztéséhez 


Szoftverfejlesztőket 


A munkakörök betöltéséhez az alábbi 
ismeretek szükségesek: 
- UNIX, COBOL, SOL vagy 
- UNIX, C 44, SAL, MOTIF vagy 
- C programozási nyelv 
Real-time rendszerek, 
hardver közeli szoftver fejlesztő 
eszközök vagy 
- Smaltalk programozási nyelv vagy 
- UNIX rendszerprogramozás. 


Ez 
SZÁTYÁSTACIKA AT 
- Számítógépek tetszőleges összeállításban 


- EPSON, Star és HP nyomtatók 
teljes választéka 


- NOVELL hálózatok és rendszerek építése 
és telepítése 


- SZOFTVEREK teljes választéka 
installálással, oktatással 


- Különleges minőségű leporellók 
széles választéka. 


Munkatársaink várhatóan hosszabb ideig 
Bécsben tevékenykednek, ezért feltétel 
a német nyelv kommunikációs szintű ismerete. 


Hívjon, kérje akciós árainkat ! 


Az érdeklődők jelentkezését 
a 251-9761-es telefoszámon várjuk. 


SYSDATA Számítástechnikai Kft, 
a Siemens leányvállalata. 


1092 Budapest, Ráday u. 47. 
tel./fax: 217-1251 
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Azt hiszem egy programozó számára a legszebb megmérettetés egy működő 
játékprogram elkészítése. Ennek a sorozatnak az a célja, hogy segítséget nyújtson 
ehez a munkához. Közzétesszük a teljes forrásanyagot, és a működési elvnek a 
leírását, így mindenki saját elképzelései szerint alakíthatja át, vagy fejlesztheti. 
A közölt forráslisták assemblerben lesznek, de ha igény lesz rá, akkor C és Pascal 
változat is elkészíthető. 


KENE TES EN TE 


La gondolom ma már eléggé elterjedt, és mindenki 
számára hozzáférhető konfigurációról van szó. A mini- 
mum feltételek: - AT-286 alaplap 

- VGA videókártya 

- 300 Kb üres lemezkapacitás 


Játék ismertetése: 

A játék tulajdonképpen a síkban játszódik, kétdimenziós 
téglákkal és figurákkal. A teljes játéktér 16 darab 
szobára van felosztva -- ami tetszőlegesen módosítható --, 
és ezeken keresztül kell haladni, hogy teljesíteni tudjuk a 
játékot. Találkozunk ellenséges figurákkal, akikhez nem 
szabad hozzáérni, mert különben fogy az energiánk. 
Megismerkedhetünk a billentyűzet kezelésével, a videó- 
grafika kisebb trükkjeivel. Az itt felhasznált spriteok 
például bármely más programban felhasználhatók, mivel 
méretük horizontálisan és vertikálisan is módosítható. 
Megoldható prioritásuk és képük. Szó lesz a file-kezelés- 
ről és a hangszóró programozásáról is. Vagyis 
áttekinthető és működő példákat találhatunk, amiket más 
területeken hasznosíthatunk. 


A program elkészítése: 

A program futása közben teljesen át kell venni a vezér- 
lést, mivel az NMI-t is le fogjuk tiltani. Erre azért van 
szükség, nehogy egy rezidens program ellopja az időnket 
futás közben, és ez az a módszer amivel teljesen átve- 
hetjük az ellenőrzést a perifériák felett. Most, az első 
részben azokat a rutinokat szeretném bemutatni, amelyek 
még az inicializálás során hajtódnak végre. Az inicial- 
izálás az amikor a program elején különböző dolgokat 
beállítunk. Ilyenek saját rendszerváltozóink, a 
videóüzemmód és náhény interrupt vektor. Ezeket ter- 
mészetesen külön-külön is felhasználhatjuk más pro- 
gramokban, mivel próbáltam úgy megírni őket, hogy 
kiragadva környezetükből más programokban is működ- 
jenek. Ez persze nem mindig teszi ideálissá a szubrutint, 
de a működési feltételeknek eleget tesznek. Tehát kezdjük 
egy pár valószínűleg egyszerű, de kötelező jellegű pro- 
cedúrával. Ha ezekkel megismerkedtünk, akkor jöhet 
majd a keretrendszer amibe ezeket beleillesztjük. 

A videómód beállítása: 

A videómód beállításához túl sok ismeret nem szükséges. 












rő 


A 320x200-as felbontásban fogunk dolgozni, mivel ezt az 
üzemmódot minden VGA kártya ismeri. A képernyő 
kezelésénél soha ne feledkezzünk meg a felbontásról, 
ugyanis a képkialakításnál elengethetetlenül fontos lesz. 
Ahhoz, hogy a program befejezése után zökkenőmente- 
sen térjünk vissza a DOS-hoz, az is fontos, hogy ne felejt- 
sük el visszaállítani a indítás elötti videóüzemmódot. Így 
lesz két egyszerű rutinunk amik beállítják ezeket az 
üzemmódokat. Mivel az üzemmód elmentéséhez elegendő 
egy byte, így elég ha egy egybyte-os memóriaváltozót 
hozunk létre. Ide el tudjuk menteni a videómódot a pro- 
gram elején, a végén pedig vissza tudjuk állítani azt 
amiből indultunk. lásd 1. lista. 


K ő törl k: 


Elösszőr is egy pár elmaradhatatlan fontos dolog. A 
" videómemória az A000h segmens-címen és a 0000h 
ofszetcímen kezdődik. A programban a videómemoria 
megcímzésére általában az ES és valamely egyéb pointer- 
regisztert fogjuk használni. 

Tehát a segmens címet az ES-be, a relatív offsetcímet 
meg például a DI vagy az SI regiszterbe tesszük. Mivel a 
videómemória fizikai felépítése igen egyszerű, így nincs 
túl sok dolgunk. Egyszerűen szervezünk egy ciklust 0-tól 
32000-ig, mivel ennyi darab word van a "képernyőn". 
Egy byte egy pontként jelenik meg, így ha mindegyikbe 


nullát töltünk akkor az egész képernyőt letöröltük 
feketére. 2. lista. 

Hogy mért pont feketére színezi ha nullát töltünk 
bele? Mivel egy byte ba 0-255-ig tudunk számot töl- 
teni, ezért van pontosan 256 darab színünk. Minden 
egyes szám megfelel egy RGB színnek, Érdemes 
kipróbálgatni. Paletta beállítása a 3. listán. 
Szükségünk lesz néhány apró rutinra. Ilyen például 
az INKEY nevű, amely nem csinál mást mint azt, 
hogy ha átadjuk neki a vezérlést, akkor addig vár 
míg meg nem nyomunk egy billentyűt. Erre sokszor 
szükség lehet. Tulajdonképpen azt vizsgálja, hogy 
felengedtünk-e egy billentyűt, mert ez egyszerübb. 
Ez azért van mert a billentyűzetet kezelő 8255-ös 
PPI minden egyes lenyomáskor és felengedéskor 
generál interruptot. Lenyomásnál ilyenkor megje- 
lenik a 60h porton a billentyű kódja, felengedéskor 
a kód--80h. Ebből az következik, hogy az alsó 7 biten 
van ábrázolva a billentyűkód, és a 8. bit állapota 
jelzi, hogy azt éppen lenyomták vagy felengedték., 
erre a billentyűkezelésnél visszatérek. 

A WAITS rutin csak egy egyszerű várakozás, 
aminek ideje az IDO nevű változótól függ. 4. lista. 





Szalay Zsolt 





Vidlni 
xor 


Proc 


mov 
int 


mov 
mov 
int 
ret 
EndP 


VidUnIln Proc 
mov 
xor 
int 
ret 
EndP 


3. LISTA 


RGBbe Proc 


rgbc1: push 


RGBbe Proc 


al,al 
ah, 0fh 
10h 


vidmod,al 


ax,0013h 
10h 





mov 
mov 
mov 


saz RGB tábla offsetcíme 
ssegmenscíme a DS-ben 
;Felépítése: 256 db 

:Red, Green Blue 1-1-1 byte 
sértékük 0-63-ig 


si 
mov 
inc 
mov 
inc 
mov 
inc 
push 
mov 
mov 
int 
pop 
po 
inc 
cmp 
jne 
ret 
EndP 


mov 
mov 
mov 


2. LISTA 


CisProc 
push 
push 
mov 


svideó üzemmód 
slekérdezése 
süzemmód elmentése 


5320x200 256 szín 


alyvidmod 
ah ah 
10h 


bx,0 
si,0 
di,offset rgb 


dh,[di-bx] 
bx 

ch [ditbx)] 
bx 

cl, [ditbx] 
bx 

bx 

bx,si 
ax,1010h 
10h ;RGB beállítása 
bx 

si 

si 

si,256 


rgbc1 ;rgb beállítása 


bx,0 

si,0 

di,offset rgb 

saz RGB tábla offsetcíme 
ssegmenscíme a DS-ben 








cx 
ax 
cx,32000 5320"200 db byte - 
532000 word a 
sképernyő memória 
hossza 

ax, ax 

di,di 

es:[di],ax 

di,2 :word-önkénti léptetés 

cls1 532000-szer visszaugrik 

ax 

cx 


cx 
ax 
cx, 32000 


dx 

dx, ido 
dx 
dx,0 
wa1 


push 
mov 
dec 


cmp 
inz 


zamíg dx nem nulla vissza 


pop dx 
ret 


EndP 


Proc 
push 
al,60h 
and 
inz 


ax 

;billentzüzet portja 

al,128 

inke0 

;visszaugrik ha felengedtek 
szegy billentyűt 

pop ax 
ret 

EndP 


UNIX Rovat 


Ebben a sorozatban a UNIX shell használóinak, programozói- 
nak szeretnénk fórumot biztosítani. Lehetővé szeretnénk tenni 
gyakorlattal rendelkezőknek a tapasztalatcserét és a kezdők 
találkozását életszagú mintákkal. Szívesen veszünk minden 
platformról forrásokat, észrevételeket, tapasztalatokat és 
kéréseket. 


Aki már használta a UNIX shellt, annak nem kell bizonyítani, 
hogy a mai formájában rendelkezik ugyanazokkal a 
képességekkel, mint a 4. generációs programnyelvek. Könnyen 
tanulható. Rendkívül tömör programokat készíthetünk. Fájlok 
csoportjait kezelhetjük egyszerre. A bővítése egyszerű: saját 
shell kisügyeseink mellett, akármely a gépünkön rendelkezésre 
álló programnyelven megírhatjuk kiegészítéseinket. Az awk, 
grep, sed segítségével meglepően bonyolult adatkezeléseket is 
meg lehet oldani. A fejlesztésre fordítandó idő lényegesen 
kevesebb, mint bármely más programnyelv esetén. 
Prototípusok, minták ismeretében még hatékonyabbá tehető a 
fejlesztői munka. Annak a számára, aki ezt megtanulta, járatos 
benne, minden UNIX rendszer nyitott, szabad a mozgástere. 


Persze nem futási sebességrekordokat kívánunk megdönteni, de 
a gyors eredmény mindenkit kárpótol. Ne ítéljünk előre. A 
futási sebességgel kapcsolatban kellemes meglepetések érik a 
rutinos shell programozókat. 


A bonyolultabb rendszerek telepítése is shell programok segít- 
ségével történik. Ezek akár néhány száz k méretűek is lehetnek. 
ld Lotus 123, Wordperfect, Dataflex Ne ijedjünk meg tőlük, 
kíváló ötlet tárházak! 


Tanuláshoz, hibakereséshez használjuk az operációs rendszer- 
rel kapott kézikönyvet, vagy amennyiben érdeklődés 
mutatkozik, néhány szakkönyvet a későbbiekben ajánlhatunk. 


Indítsuk ezt a sorozatot egy egyszerü programmmal, amely a 
magyar ékezetes karakterek használatát segíti. Hasznos minden 
olyan eszközök használatában, amely az ASCII tábla 127 felett 
bizonyos kódokat saját maga értelmez. pl. nroff.troff 


1:t!/usr/bin/ksh 
2:t Készült COHERENT 4.0-ra 


3:4t Magyar karakterek át és vissza- 
csoportosítása 
4:4$t 1993.aug."BECO"Kft. 


5:while test $t -gt 0 
6:do 


VE case $1 in 

8: -me) arg-$1;; 

9: -ms) arg-$1;; elöl 
a -nt) ols$17z 


17:t az óúís marad, a többi átalakul: 
18: 





19:cat $SszvegN 


20:Itr  "öüőűéáöün úÉLéa" "EK Áh 3ON-2s 7 "NN 


21:Inroff $arg $ol $regN 


22:Itr "Ex ú  "580N-2S" " vöüöűéáöün úéÉLéa" 


Második programunk egy ügyes kurzor pozicionáló módszert 
mutat be. 


a parancssor legyen: 
$cursor sor oszlop 


A kurzor pozicionálás terminál függő, a módját megtaláljuk a 
/etc/termcap fájlban, (cm) bejegyzés alatt. Hozzunk létre 
egy CURSOR nevű környezeti változót, cursor ezt fogja 
megtalálni környezetében. Egy pc terminál részére írjuk be az 
alábbi sort a .profile fájlunkba. ("( az ESC karakter, vagy 
ctr1 ]) 

CURSOR-—" ( [$dV7 $dH 


A cursor program: 


1:t!/usr/bin/sh 
:$ készült COHERENT 3.2-re 
3:4§ 1992.maj."BECO"Kft. 
4:$t !/usr/bin/ksh, COHERENT 4.0-ra OK! 
5:t 1993.aug."BECOTKft. 


6:USAGE-" usage: cursor sor oszlop" 
7 : EUSAGE-1 


if test "$$§7 -ne 2 
then 


exit S$SEUSAGE 
Ed 


15:echo "echo "$CURSOR"I 
16:sed "s/78./$§1/ 
17: SZESZSZZ TT NNe 





A cursor, clear, echo segítségvel néhány sorban 
látványos dolgokat rajzolhatunk a képernyőre, ésa read 
segítségével beolvashatjuk a felhasználó válaszait. A képernyőn 
mezőket törölhetünk a kurzor mozgatásával és betűközök írásá- 
val. Ezzel a módszerrel a képernyő szinezése is megvalósítható. 
Ötleteket várunk. 


Legközelebbi alkalommal a cursor-nak egy továbbfejlesztett, 
gyorsabb változtát fogjuk bemutatni. 


Várjuk leveleiket, ötleteiket. Ne feledjék el megadni, hogy 
programjuk eredeti változata mely operációs rendszer alatt 
készült és lett kipróbálva. 


Berta Sándor 
tel:217-4578 
"BECOVKft. 





MS Fortran 


Turbo Ct- for Borland C-t-- 4.0 CD 19.900.- 
Windows Visualized 9.800.- 16.400. Borland C--- 4.0 3.5 28.800.- 
Borland C-t-- for OS/2 49.800.- Visual C4-t 1.5 profCD  48.000.- 





Assembler 


Visual Basic for 
— Windows Windows 3.0 standard 16.800.- 
App Visual Basic 


Turbo Assembler 4.0 JEE ETKN ÉVEN 
professional CD 


Turbo Pascal 7.0 
16.800.- 

Turbo Pascal 

for Windows 1.5 
16.800.- 









Dos / Win 11.800.- 









Assembiler 




















Borland Pascal 
dBase 5.0 for Dos 36.000.- HA Windows with Object 7.0 
dBase 5.0 for Windows — — 36.000.- App Dos / Windows 
Paradox 4.5 
for Windows 18.000.- Macro Assembler 34.000.- 








gave 6.1 22.800.- ( 2 Help 
Foxpro 2.6 for si j 


Dos standard 9.900.- 


Foxpro 2.6 
FE] Add ! for Windows 
standard 


9.900.- 


















Foxpro 2.6 
for Windows 
professional  59.900.- 





HE TIPPEK £ TRÜKKÖK 


GIF fejléc olvasása 


A következő C nyelvű program a GIF 87/a 
formátumú file fejlécéből kiolvassa a kép 
adatait és kiírja a képernyőre. 


p give" 


Hinclude cstdio.h: 
Hfinclude cstdlib.h: 
tinclude cconio.h: 
fdefine byte char 

fdefine SIG SIZ 6 
Hdefine GIF SIG "GIF87a" 


union clr info ( 
unsigned m:1; 
unsigned er:3; 
unsigned ub:1; 
unsigned pixel:3; 
byte cilr byte; 

b 

struct ser des ( 
int width; 
int height; 
union celr info color info; 
byte background; 
byte des end; 

z 

struct map ( 
byte red; 
byte green; 
byte blue; 

b; 

FILE "gif file; 


void main(argc,argv) 
int argc; 
char "argv[]; 


struct scr des screen descriptor; 
struct map "color map; 
int clr map entries; 


if ((argc -—— 2)8.8. (read sig (argv[1]))) ( 
if (read screen descriptor ($screen descriptor)) ( 
cprintf ("Sz less,g: "odwin", 
screen descriptor.width); 
eprintf 
("Magasság:"dWvin" screen descriptor.height); 
cprintf 
("paletta:  "9oulrin", creen descriptor.color info.m); 
cprintf 
("szinbit:7ulrin" screen descriptor.color info.cr41); 
cprintf 
("bit/pixel : 
"un" screen descriptor.color info.pixelt1); 
cprintf 
("elr index :7dírIn", screen descriptor.background); 











if (screen descriptor.color info.m) 
(clr map entries - 
2Mscreen descriptor.color info.pixelt1); 
color map - (struct map ") malloc (clir map entries); 
read color map (color map, clr map entries); 
) 
) 


else puts(" Használat : GI filenév "); 


) 


int read sig (char "file name) 
( 
char signature [SIG SIZ$1]; 
gif file - fopen (file name, "rb"); 
if (!gif. file) ( 
cprintf ("Nem találom.Wn"); 
fclose (gif file); 
return (0); 
) 
else ( 
fread (signature, SIG SIZ, 1, gif file); 
signature [SIG SIZ] — 107; 
if (stremp (signature, GIF SIG)) ( 
cprintf ("Ez nem GIF filelrin"); 
fclose (gif file); 
return (0); 


else return (1); 
) 
) 


int read screen descriptor (struct scr des "descrip- 
tor) 
( 
int result; 
result - fread (descriptor, sizeof (struct scr des), 1, 
gif file); 
if (result —— 1) 
return (1); 
else ( 
eprintf ("File hiba. mn"); 
fclose (gif file); 
return (0); 
T 
l 


int read color map (Sstruct map "elr map, int num) 
fú 
int result; 
result - fread (clr map, sizeof (struct map), num, 
gif file); 
if (result —— num) 
return (1); 
else ( 
cprintf ("File hiba.nn"); 
fclose (gif file); 
return (0); 





Karakterek a VGA 
képernyőn 


Az alábbi program kilistázza az aktuális 
könyvtár tartalmát, vagy a paraméterként 
megadott szűrő szerinti fileokat a VGA 
képernyőn a grafikus kártya saját 
karakterkészletével. A program jól szemlél- 
teti az inline assembler használatát. 


Fordításkor a TASM.EXE-nek a PATH-ban 
megadott útvonalon kell lennie. 








fffedeteletetetetettetetetete tettette kt ktttetktttetretetetetrttek [ 
TF 9f 
Tt vgadir.c a 
b al 
FT — fordítás: TCC -mt-It vgadir "/ 
j pi s 
F" TASM.EXE -nek PATH ban kell lennie! "/ 


Ájeketetekekkeetetekéteteteteketeke tetek tettetett eket eketekekekekekt [ 

























fHinclude cdir.h: 


char file dir[100][13]; 
char file size[100][8]; 
char file date[100][13]; 


int fnum,i-0,z,db,j,c,h,v,imaxz-0; 
struct ffbik ffbik; 


PF" Az xy pontba p pont magas betűvel "/ 
FT" c színben d számú karaktert kiírunk "/ 
fa TEXT stringből 9 


kiir(int x,int y,int p,int c, int d.char " TEXT) 


if(ps-8) asm mov — ax,1123h 
if(ps-14) asm mov  ax,1122h 
if(ps-16) asm mov  ax,1124h 
asm int 10h 

asm mov  axds 

asm mov — es,ax 

asm mov . bh,0 

asm mov  ble 

asm mov  dlx 

asm mov . dhy 

asm mov cx, 

asm mov — bp,offset TEXT 
asm mov — ax,1300h 






10h 


TK TIPPEK £ TRÜKKÖK IEEE BERN 


F Várunk egy billentyű leütésre "/ 
var() 


asm xor ax ax 
asm int 16h 


) 


FT" Grafikus módba kapcsoljuk a VGA kártyát "/ 
vga() 
1 


asm mov ax,12h 
asm int 10h 


) 


Tf Visszakapcsolunk karakteres üzemmódra "/ 
karakteres() 


asm 


) 


mov  ax,3 
int 10h 


void main(argc,argv) 
int argc; 
char "argv[]; 


( 
if (argc —- 2) 
fnum - findfirst(argv, 8ffbik,0x3f); 
else — fnum - findfirst(""."" 8.ffbik,Ox3f); 
FT" Amíg van file olvas, de legfeljebb 99-ig "/ 
while(!fnum) 


strcpy (file dirfi],ffbik.ff name); 
Itoa (ffblk.ff fsize file size[i],10); 
fnum - findnext (8ffblk); 

imaxzi; 

itt; 

if (imax 599) imax -99; 


vga0; 
while(zcimax) 
for (i-0; i cz 24; itt) 


( 

kiir(3,2-i, 14,15,12 file dirfitz]); 
kiir(17,2-ti, 14,15,6 file size[itz]); 
) 

var(); 

z - zt25; 

) 

var(); 

karakteres(); 
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Egyre másra jelennek meg a legendás szoftverek újabb verziói, és hála a 
Windowsnak egyre jobban hasonlítanak egymásra. Az új változatok egyre jobban 
kiszolgálják a felhasználót, mi marad akkor a gyalogos programozóknak? 


17 Möi fekete baroksarku Kfélegyháza 
18 Moi papucs Scholl Apollo 
19 Mailakk cina 


Régi szép idők... Megjelenésekor Pc-s körökben min- 
denkit levett a lábáról a dBase 3-t- fantasztikus tel- 
jesítményével, kezelési komfortjával. 

Talán ennek köszönhető, hogy adatformátuma szab- 
vánnyá vált. A következő IV. verzió nem sikerült 
igazán, közben jöttek a konkurensek egyre gyorsabb 
és jobb rendszerei. A fejlesztőknek előnyösebbek 
voltak azok a rendszerek amelyek önmagukban fut- 
tatható programokat produkáltak. 

A dBase ennek ellenére a felszinen maradt, és most 
itt az új 5.0 változat ráadásul Windows alatt. A prog- 
ram remek, szinte mindent megtehetünk anélkül 
hogy egyetlen programsort kellene írni. A kompati- 
bilítás egyirányú az új rendszer írja olvassa a régi 
fileokat. Az új DBF file fejléce megváltozott, a régi 
rendszerek nem ismerik fel. 

Az új dBase igazi Windows-os program, annak min- 
den előnyével. Kezelési komfortja, megjelenése az új 
Borland stílust idézi, szép ablakok még szebb kezelő- 
szervek és mindez elegánsan könnyedén. A prog 
ramozóknak jó hír, a rendszer köszönhetően a 
Windows-nak, tetszőleges programnyelven írt külső 
programokkal, dinamikus könyvtárakkal bővíthető. 
Természetesen megmaradt a saját nyelvű pro- 
gramozás lehetősége, a nyelv köszönhetően az új 
környezetnek, új lehetőségeknek jelentősen átalakult. 
Az adatkezelő és matematikai funkciókon kívül, meg- 
találhatók benne a Windows kezeléséhez szükséges 
függvények, szinte bármilyen alkalmazást fejleszt- 
hetünk vele Windows-os környezetbe. A kifinomult 
környezet és a dBase nyelv elterjedtsége miatt a pro- 
gram jó eséllyel indul a Foxpróval megvívandó harc- 
ban. 


48 Mai szandál vászon Corvo Thaiföld 
49 Férfi edző cipo Kina 


A forrásnyelven írt programot a dBase egy átmeneti 
bináris kódra fordítja, ezt a kódot futtatja akár 
egyszerre több példányban is. A Windows a futó 
alkalmazást önálló programnak látja, azonban ahogy 
lezárjuk a dBaset az alkalmazás is bezáródik. 

A legnagyobb újdonságot magam részéről a képek, 
hangok, és általában tetszőleges Windows objek- 
tumok táblázatba illesztésének lehetőségét tartom. 
Természetesen ez azzal a hátránnyal járt, hogy meg 
kellett változtatni az adatfile formátumát. Erről a 
közeljövőben még ejtünk szót. Az adatfile létrehozása 
gyerekjáték az itt látható dialógus doboz segítségével 


Field Name Type Width 
1 MEGNEV Logical : 
Character 

Numeric 

Memo 

Date 
Float 
OLE 

Binary 


Decimal Index 




















Az ábrán jól láthatók az új mezőtipusok. 

A programmal való ismerkedést a kézikönyvön kívül 
a programba épített tanítómester is segíti, bár kissé 
erőszakos, néha nem hagyja magát lerázni. 

Saját fejlesztésű programjainkat a rendszer önálló 
négy ablakos Debuggerével vallathatjuk, melyben az 
összes megszokott szolgáltatás elérhető, de egy 
kényelmes látványos környezetben. 

A rendszernek természetesen beépített editora is van, 
a Borland C fordítóhoz adott példaprogramra 
emlékeztet. Összefoglalva: egy szép és szépreményű 
program az új dBase, rajtunk múlik mi lesz belőle. 


cip 1650 3 
cip 2550 
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Az új FORM GENERÁTOR tetszőleges Természetesen a programnyelv is bővült, 
tulajdonságú élő jelentéseket készít, akár változott. Az alábbi példaprogram a 
kalkulátort is. pontos időt jelzi ki egy ablakban. 
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" PROGRAM. DBCIock.prg 
" WRITTEN BY: Borland Samples Group 
" DATE: 12/93  " UPDATED: 4/93 





create session 

set talk off 

set IdCheck off 

set design off 

Animals set procedure to program(1) additíve 

local f 

f - new ClockForm() 

f.open() 

Narne féngelFish 7] 
Size [2 

4 


ea [Computer Aguariums 


class ClockForm of Form 
this.top - 0 
this.left - 65.38 
this.height - 4.08 
this.width - 11.22 
this.mdi — .f. 


























this.minimize - .t. 
this.text — "Clock" 








[ ! Previous 


A táblázatokba az eddigi adatok mellett képeket, 
hangokat is beilleszthetünk természetesen ezek is 





this.sizeable — .t 





this. moveable - -t. 
this.sysMenu — -t. 
this.colorNormal - "bgt/n" 


megjeleníthetők a jelentésekben. Ezzel akár multi- define text timeText of this; 
média alkalmazásokat is készíthetünk dBase alatt. HIRE 


text time() ; 

alignment 4; 
colornormal "bgt/n" 
height 6.12,; 

width 11.22, 
fontName "Sans Serif,; 
fontBold .f. 


[-] ls ÜL Tá] HE 
sights and Sounds 


Select Image: 


load dll dbtimer.vbx 


define dbtimer timer of this; 


LN 


property; 
Width 4.62, 
Height 2.37, 
Top 300.06,; 
Left 300.12,; 




















































OnTimer (;form.timeText.text - form.GetTime()) 
this. TimeProperty - CLASS::TimeProperty 
this.DefineMenu() 


procedure OnOpen 


private optionsRef 


Public 
formatMenuChecked, colorNormalMenuChecked,fontNameMenuChecked 


fontBoldMenuChecked fontltalicMenuChecked 
this.menuReleased — .f. 8.8. — Indicates that form has no menu 
this.timeFormat - 0 8.8. — Format of the time text 
this.GetTime - Get24Time 8.8. — Function called to display the 
time. 
8.8. GetTime will be set to Get24Time or 
8.8. GetI2Time depending on the format 


8.8. menu option selected. 


optionsRef - this.MainMenu.Options 8.8. So dont have to access refer- 
ence 
8.8. each time 


formatMenuChecked — - optionsRef.Formats. TwentyFourHrFormat 
colorNormalMenuChecked - optionsRef.Colors.CyanColor 
fontNameMenuChecked  - optionsRef.Fonts.SansSerifFont 
fontBoldMenuChecked  - optionsRef.Bold.BoldOff 
fontltalieMenuChecked - optionsRef.ltalic.ItalicOff 
this.OnSize(.f.,this.width,this.height) 8.8. initial sizing 
this.timer.enabled  - tt. 


procedure OnClose 
set design on 
rease 
formatMenuChecked, colorNormalMenuChecked, fontNameMenuChecked 
fontBoldMenuChecked  fontltaliceMenuChecked 
close procedure program(1) 
procedure OnGotFocus 
set design off 
procedure OnLostFocus 
set design on 
procedure OnSize (nType, width, height) 
localt 


t - form.timeText 

t.width — width 

t.height - height 

t.fontSize - (height t width)/2 


procedure Twelvettour 

if this.timeFormat cz 12 
this.timeFormat - 12 
this.GetTime - Get12Time 

endif 


procedure TwentyFourHour 


if this.timeFormat c: 24 


this.timeFormat - 24 





this.GetTime - Get24Time 
endif 


procedure TimeProperty 
private propRef,propName tt menuVar proc 
propName - this.parent. value 
menuvVar - propName t "MenuChecked" 
8menuvVar. .checked — .f. 8.8. Uncheck groups checked menu 
this.Checked — -t. 
é8menuVar-this 88. This is now the checked menu. 
if propName c: "Format" 8.8. Change a property of the text control 
t -— form.timeText 
propRef - "t." 4 propoName 
§propRef - this.value 
else 8.8. Change the format of the text 
proc - "form." t this.procName 
8proc() 
endif 
procedure DefineMenu 


define menu MainMenu Df this 


define menu Options of this.MainMenu; 
property; 
text "8.Options" 


define menu ExitMenu of this.MainMenu . Options; 
property; 
text "BExit",; 
onclick (.form.Close()) 


define menu Separator1 of this. MainMenu. Options; 
property; 
separator .t. 


define menu Colors of this.MainMenu. Options ; 
property; 
text "8a.Colors"; 
custom; 
value "ColorNormal" 
define menu CyanColor of this.MainMenu. Options. Colors; 
property; 
text "aCyan",; 
onclick this. TimeProperty, ; 
checked -t.; 
custom; 
value "bgt/n" 


define menu YellowColor of this.MainMenu. Options. Colors; 
property; 
text "GYellow",; 
OnClick this.timeProperty; 
custom; 


value "grt/n" 
define menu MagentaColor of this.MainMenu. Options. Colors; 
property; 
text "8Magenta",; 
OnClick this.timeProperty; 
custom; 
value "rbt/n" 
define menu RedColor of this.MainMenu. Options. Colors; 
property; 
















































text "8Red",; 





onclick this.timeProperty; 
custom; 


value "r4/n" 


define menu Separator2 of this.MainMenu. Options; 
property; 
separator -.t. 
define menu Formats of this.MainMenu. Options; 
property; 
text "aFormats"; 
custom; 
value "Format" 
define menu TwentyFourHrFormat of this.MainMenu. Options .Formats; 
property; 
text "Twenty Four Hour"; 
onclick this. TimeProperty, ; 
checked -t.; 
custom; 
procName "TwentyFourHour" 
define menu TwelveHrFormat of this.MainMenu. Options.Formats; 
property; 
text "Twelve Hour"; 
onclick this. TimeProperty; 
custom; 
procName "TwelveHour" 


define menu Separator3 of this.MainMenu. Options; 
property; 
separator .t. 
define menu Fonts of this.MainMenu. Options; 
property; 
text "8Fonts"; 





custom; 
value "FontName" 
define menu ArialFont of this.MainMenu. Options.Fonts; 
property; 
text "8.Arial",; 
onclick this.timeProperty; 
custom; 
value "Arial" 
define menu ScriptFont of this.MainMenu.Options.Fonts; 
property; 
text "a.Script",; 
onclick this.timeProperty; 
custom; 
value "Script" 
define menu RomanFont of this.MainMenu. Options.Fonts; 
property; 
text "aRoman",; 
onclick this.timeProperty; 
custom; 
value "Roman" 
define menu SerifFont of this.MainMenu. Options.Fonts; 
property; 
text "Sgerif",; 
onclick this.timeProperty; 
custom; 
value "Serif" 
define menu SansSerifFont of this.MainMenu.Options.Fonts; 
property; 





text "Sagns Serif",; 
onclick this.timeProperty,; 
checked -t.; 
custom; 
value "Sans Serif 
define menu Bold of this.MainMenu. Options; 
property; 
text "8aBold Fonts"; 
custom; 
value "FontBold" 
define menu BoldOff of this.MainMenu. Options. Bold; 
property; 
text "OSfP ,; 
onclick this.timeProperty,; 
checked -t.; 
custom; 
value .F. 
define menu BoldOn of this.MainMenu. Options. Bold; 
property; 
text "BON"; 
onclick this.timeProperty; 
custom; 
value tt. 
define menu Italic of this. MainMenu. Options; 
property; 
text "a.ltalic Fonts"; 
custom; 
value "Fontltalic" 
define menu ItalicOff of this.MainMenu. Options. Italic; 
property; 
text "OSfP ,; 
onclick this.timeProperty,; 
checked -t.; 
custom; 
value .f. 
define menu ItalicOn of this. MainMenu. Options. Italic; 
property; 
text "BON", 
onclick this.timeProperty; 
custom; 


value -t. 


endclass 
function Get12Time 


local time, hours 


time - time() 
hours - val(time) 
return Itrim(str(mod(hours-1,12)1)) § ; 
substr(time,3) § ; 
iif(hours c 12," AM" PM") 
function Get24Time 


8.8. Time in dBASE for Windows is in 24 hour format 


"return time() 
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Jöntt! 
4D PowerMac natív 
Wanted!!! 
fejlesztők-dealerek 


a vezető Macintosh szerver-kliens 
relációs adatbázis-kezelő termékcsalád 
4D First: 28.900 Ft 4th Dimension: 98.900 Ft 4D Server: 169.900 Ft 

Akciól 


4D First most minden új géphez ingyen! 
Mac-PowerMac rendkívüli csere-upgrade: akár 309£ megtakarítás! 
pl.:Centris 650 -ről PowerMac 8100-re 449.900 Ft 
B LC475 4/80 -- 14" monitor 169.900 Ft 


Ouadra 610 4/160CD - intel 486 card 279.900 Ft 
Hivatalos 4D fejlesztői státusz megpályázható 
elnyerése esetén "Developer" kit " 239.900 Ft helyett 148.500 Ft-ért !!! 
"programok Szerviz átalányeKölcsönzéselngyenes kiszállítás 


sbérlet"Törzsvásárlói rendszere Vásárlás előtti próbahasználat 


Starking Óbuda 6 Apple Center 











Hirdetőink: 


- 3M Hungaria Kft. 
- Domus Z 


Komplex Vállalkozási 
Kft. 


- StarkKing Óbuda 
Apple Center cz 
- LAP Stúdió 
- HUMANSoft Kft. 
- GAMAX Kft. 
- Folio Kft. 
- TEX Studio 
- NASA Reklámiroda ! 
- PC PINCE ; 
- Partners Hungary 
- DÉMA Ktt. 
- MTA SZTAKI 
- BECO Kft. 
- SYS DATA 


- INTERKOMBO 
Kft. 
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Szerkesztőségünk címe: 
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Import és hazai 
elemes 
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forgószékek, 
irodai 
kiegészítők 


NTATERMEK 
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... hogy az élet könnyebb legyen 





3M Hungária Kft. 
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